home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 015a / stuf12.zip / DEMO1.BAT < prev    next >
DOS Batch File  |  1991-09-09  |  3KB  |  153 lines
  1. rem DOS Shell Demonstration
  2. echo off
  3. :begin
  4.     kls 3
  5.     batbox shell.mnu
  6.     if errorlevel 82 goto errorb
  7.     if errorlevel 81 goto exit
  8.     if errorlevel 80 goto programs
  9.     if errorlevel 69 goto errorb
  10.     if errorlevel 68 goto dossvc
  11.     :errorb
  12.         sounder
  13.     goto begin
  14.     :programs
  15.         kls 5
  16.         batbox programs.mnu
  17.         if errorlevel 82 goto errorp
  18.         if errorlevel 81 goto begin
  19.         if errorlevel 78 goto errorp
  20.         if errorlevel 77 goto music
  21.         if errorlevel 66 goto errorp
  22.         if errorlevel 65 goto apps
  23.     :errorp
  24.         sounder
  25.     goto programs
  26.         :music
  27.             kls 7
  28.             batbox music.mnu
  29.             if errorlevel 85 goto errorm
  30.             if errorlevel 84 goto tone
  31.             if errorlevel 83 goto errorm
  32.             if errorlevel 82 goto random
  33.             if errorlevel 81 goto programs
  34.             if errorlevel 68 goto errorm
  35.             if errorlevel 67 goto choose
  36.         :errorm
  37.             sounder
  38.         goto music
  39.         :tone
  40.             sounder
  41.             goto music
  42.         :random
  43.             kls 3
  44.             rand 4
  45.             if errorlevel 4 goto strangers
  46.             if errorlevel 3 goto vmi
  47.             if errorlevel 2 goto mcdonald
  48.             music11 dixie2
  49.         goto music
  50.             :strangers
  51.                 music11 strngers
  52.                 goto music
  53.             :vmi
  54.                 music11 vmi
  55.                 goto music
  56.             :mcdonald
  57.                 music11 mcdonald
  58.                 goto music
  59.         :choose
  60.             kls 6
  61.             music111 *.cm1
  62.             goto music
  63.         :apps
  64.             kls 5
  65.             batbox apps.mnu
  66.             if errorlevel 88 goto errora
  67.             if errorlevel 87 goto ws
  68.             if errorlevel 82 goto errora
  69.             if errorlevel 81 goto programs
  70.             if errorlevel 80 goto paradox
  71.             if errorlevel 77 goto errora
  72.             if errorlevel 76 goto lotus
  73.             :errora
  74.                 sounder
  75.             goto apps
  76.             :ws
  77.                 kls 7
  78.                 write "Now Loading WordStar" 10 142
  79.                 waitfor 3
  80.             goto apps
  81.             :paradox
  82.                 kls 7
  83.                 write "Now Loading Paradox" 10 142
  84.                 waitfor 3
  85.             goto apps
  86.             :lotus
  87.                 kls 7
  88.                 write "Now Loading Lotus 1-2-3" 10 142
  89.                 waitfor 3
  90.             goto apps
  91.     :dossvc
  92.         kls 6
  93.         batbox service.mnu
  94.         if errorlevel 87 goto errord
  95.         if errorlevel 86 goto view
  96.         if errorlevel 82 goto errord
  97.         if errorlevel 81 goto begin
  98.         if errorlevel 71 goto errord
  99.         if errorlevel 70 goto freed
  100.         if errorlevel 69 goto errord
  101.         if errorlevel 68 goto ddir
  102.         :errord
  103.             sounder
  104.         goto dossvc
  105.         :ddir
  106.             kls
  107.             dir *.*
  108.             pause
  109.         goto dossvc
  110.         :view
  111.             kls
  112.             type batstuff.doc|more
  113.         goto dossvc
  114.         :freed
  115.             kls 2
  116.             skip 6
  117.             input "Which disk drive, A, B, or C?" 10 /c
  118.             if errorlevel 100 goto errorf
  119.             if errorlevel 99 goto c
  120.             if errorlevel 98 goto b
  121.             if errorlevel 97 goto a
  122.             if errorlevel 82 goto errorf
  123.             if errorlevel 81 goto dossvc
  124.             if errorlevel 68 goto errorf
  125.             if errorlevel 67 goto c
  126.             if errorlevel 66 goto b
  127.             if errorlevel 65 goto a
  128.             :errorf
  129.                 sounder
  130.             goto freed
  131.             :c
  132.                 skip 1
  133.                 freedisk c
  134.                 waitfor 3
  135.             goto begin
  136.             :b
  137.                 skip 1
  138.                 freedisk b
  139.                 waitfor 3
  140.             goto begin
  141.             :a
  142.                 skip 1
  143.                 freedisk a
  144.                 waitfor 3
  145.             goto begin
  146. :exit
  147. input "Do you realy want to quit? (Y/N)" 79 /c
  148. if errorlevel 121 goto done
  149. if errorlevel 110 goto begin
  150. if errorlevel 89 goto done
  151. goto begin
  152. :done
  153.     kls